home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / grphwiz.dxr / 00001_global movie script.ls next >
Encoding:
Text File  |  2000-01-14  |  2.8 KB  |  85 lines
  1. on startMovie
  2.   global gGraphWizard
  3.   setUpMe(gGraphWizard)
  4.   showMe(gGraphWizard)
  5.   set the keyDownScript to "checkForKeyboardShortCuts"
  6. end
  7.  
  8. on checkForKeyboardShortCuts
  9.   global gGraphWizard
  10.   if the machineType = 256 then
  11.     theModifier = the controlDown
  12.   else
  13.     theModifier = the commandDown
  14.   end if
  15.   if theModifier then
  16.     if (the keyPressed = "o") and (getPageNum(gGraphWizard) = 1) then
  17.       simulateClickOn(getOpenButton(gGraphWizard))
  18.     else
  19.       if the keyPressed = "h" then
  20.         simulateClickOn(getHelpButton(gGraphWizard))
  21.       else
  22.         if the keyPressed = "s" then
  23.           simulateClickOn(getSaveButton(gGraphWizard))
  24.         else
  25.           if the keyPressed = "w" then
  26.             simulateClickOn(getCloseBox(gGraphWizard))
  27.           else
  28.             if (the keyPressed = "x") and (getPageNum(gGraphWizard) = 4) then
  29.               simulateClickOn(getcutButton(gGraphWizard))
  30.             else
  31.               if (the keyPressed = "c") and (getPageNum(gGraphWizard) = 4) then
  32.                 simulateClickOn(getCopyButton(gGraphWizard))
  33.               else
  34.                 if (the keyPressed = "v") and (getPageNum(gGraphWizard) = 4) then
  35.                   simulateClickOn(getPasteButton(gGraphWizard))
  36.                 end if
  37.               end if
  38.             end if
  39.           end if
  40.         end if
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.  
  46. on CloseMIAW
  47.   global gGraphWizard
  48.   closeMe(gGraphWizard)
  49. end
  50.  
  51. on OneTimeResizeTable
  52.   repeat with n = the number of member "body" to the number of member "corner"
  53.     repeat with R = 1 to member(n).rowCount
  54.       setRowHeight(member(n), R, 24)
  55.       repeat with c = 1 to member(n).columnCount
  56.         setTextSize(member(n), point(c, R), 9)
  57.         setWinTextFont(member(n), point(c, R), "Arial")
  58.         setMacTextFont(member(n), point(c, R), "Helvetica")
  59.         setVAlign(member(n), point(c, R), "center")
  60.       end repeat
  61.     end repeat
  62.   end repeat
  63. end
  64.  
  65. on putTableProps whichTable
  66.   put "borderSize =   ", whichTable.borderSize
  67.   put "hCellSpacing = ", whichTable.hCellSpacing
  68.   put "vCellSpacing = ", whichTable.vCellSpacing
  69.   put "stdRowHeight = ", whichTable.stdRowHeight
  70.   put "stdColumnWidth = ", whichTable.stdColumnWidth
  71.   put "defaultTextFont = ", whichTable.defaultTextFont
  72.   put "defaultMacTextFont = ", whichTable.defaultMacTextFont
  73.   put "defaultWinTextFont = ", whichTable.defaultWinTextFont
  74.   put "defaultTextSize = ", whichTable.defaultTextSize
  75.   put "defaultTextStyle = ", whichTable.defaultTextStyle
  76.   put "defaultHAlign = ", whichTable.defaultHAlign
  77.   put "defaultVAlign = ", whichTable.defaultVAlign
  78.   repeat with n = 1 to whichTable.rowCount
  79.     put "getRowHeight(" & n & ") = ", getRowHeight(whichTable, n)
  80.   end repeat
  81.   repeat with n = 1 to whichTable.columnCount
  82.     put "getColumnWidth(" & n & ") = ", getColumnWidth(whichTable, n)
  83.   end repeat
  84. end
  85.